Imports CapaDeNegocios
Partial Public Class FrmCalificaciones
    Inherits System.Web.UI.Page
    Dim TblEnteC As nTblEnteC = New CapaDeNegocios.nTblEnteC()
    Dim Provincia As nProvincia = New CapaDeNegocios.nProvincia()
    Dim Localidad As nLocalidad = New CapaDeNegocios.nLocalidad()
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            GridEnte.SelectedIndex = -1
            LlenarComboProvincia()
            LLenar_Grid()
        End If
    End Sub
    Sub LimpiarCampos()
        LblError.Text = ""
        HFCodigoEnte.Value = ""
        TxtRazonSocial.Text = ""
        TxtDireccion.Text = ""
        TxtTelefono.Text = ""
        TxtMail.Text = ""

    End Sub
    Sub LlenarComboProvincia()
        '        Dim item As ListItem = New ListItem("Ninguno...", -1)
        cboProvincia.DataSource = Provincia.Listar(0, "", "")
        cboProvincia.DataTextField = "Nombre"
        cboProvincia.DataValueField = "CodigoProv"
        cboProvincia.DataBind()
        If cboProvincia.Items.Count > 1 Then
            cboProvincia.SelectedIndex = 1
            LlenarComboLocalidad(1)
        End If
    End Sub
    Sub LlenarComboLocalidad(ByVal prov As Integer)
        cboLocalidad.Items.Clear()
        cboLocalidad.Items.Add(New ListItem("Ninguno...", -1))
        If prov <> -1 Then
            cboLocalidad.Items.Clear()
            cboLocalidad.Items.Add(New ListItem("Ninguno...", -1))
            cboLocalidad.DataSource = Localidad.Listar("", 0, prov)
            cboLocalidad.DataTextField = "Nombre"
            cboLocalidad.DataValueField = "CodigoLocalidad"
            cboLocalidad.DataBind()
            If cboLocalidad.Items.Count > 1 Then
                cboLocalidad.SelectedIndex = 1
            End If

        End If
    End Sub
    Sub LLenar_Grid()
        GridEnte.DataSource = TblEnteC.Buscar("", "", "", "", "", "", "")
        GridEnte.DataBind()
        LimpiarCampos()
    End Sub
    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        LLenar_Grid()
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click
        If cboProvincia.SelectedValue <> -1 And cboLocalidad.SelectedValue <> -1 And CboEstado.SelectedValue <> "Ninguno" Then
            If HFCodigoEnte.Value = "" Then
                If (Not TblEnteC.Insertar(TxtRazonSocial.Text, TxtDireccion.Text, TxtTelefono.Text, TxtMail.Text, cboLocalidad.SelectedValue)) Then
                    LLenar_Grid()
                    LblError.Text = "Error en insercion. Verifique los datos"
                Else
                    LLenar_Grid()
                End If
            Else
                If (Not TblEnteC.Modificar(HFCodigoEnte.Value, TxtRazonSocial.Text, TxtDireccion.Text, TxtTelefono.Text, TxtMail.Text, CboEstado.Text, cboLocalidad.SelectedValue)) Then
                    LLenar_Grid()
                    LblError.Text = "Error en la Actualizacion. Verifique los datos"
                Else
                    LLenar_Grid()
                End If
            End If
        Else
            LblError.Text = "Error, la provincia, localidad y estdo no pueden ser nulos"
        End If
    End Sub
    Protected Sub GridEnte_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GridEnte.RowCommand
        If e.CommandName = "Select" Then
            HFCodigoEnte.Value = e.CommandSource.Parent.FindControl("HFID").value
            TxtRazonSocial.Text = e.CommandSource.Parent.Parent.FindControl("LblRazonSocial").text
            TxtDireccion.Text = e.CommandSource.Parent.Parent.FindControl("LblDireccion").text
            TxtTelefono.Text = e.CommandSource.Parent.Parent.FindControl("LblTelefono").text
            TxtMail.Text = e.CommandSource.Parent.Parent.FindControl("LblEmail").text
            cboProvincia.SelectedValue = Localidad.ProvinciaXLocalidad(e.CommandSource.Parent.Parent.FindControl("HFLocalidad").value)
            cboLocalidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFLocalidad").value
            CboEstado.Text = CboEstado.Items.FindByText(e.CommandSource.Parent.Parent.FindControl("LblEstado").text).Text

        End If
    End Sub

    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkEliminar.Click
        If HFCodigoEnte.Value <> "" Then
            TblEnteC.Eliminar(HFCodigoEnte.Value)
            LLenar_Grid()

        End If
    End Sub

    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkBuscar.Click
        GridEnte.DataSource = TblEnteC.Buscar("", TxtRazonSocial.Text, TxtDireccion.Text, TxtTelefono.Text, TxtMail.Text, CboEstado.SelectedValue, cboLocalidad.SelectedValue)
        GridEnte.DataBind()
        LimpiarCampos()

    End Sub
    Protected Sub cboProvincia_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboProvincia.SelectedIndexChanged
        LlenarComboLocalidad(cboProvincia.SelectedValue)
    End Sub
End Class